# Paquete para manipulación de datos
library(dplyr)
# Paquete para manejo de datos vectoriales
library(sf)
# Paquetes para manejo de datos raster
library(terra)
# Paquete para mapas interactivos
library(leaflet)
#paquete para manejo de tablas
library(DT)
#Paquete para graficación
library(ggplot2)
library(plotly)
#Lectura datos zonas
zonas <-
st_read("https://raw.githubusercontent.com/mauguemu/Proyecto_1_documento/master/Capas/zonas_wgs84.geojson",
quiet = TRUE
)
#Lectura datos cuadrantes
cuadrantes <-
st_read("https://raw.githubusercontent.com/mauguemu/Proyecto_1_documento/master/Capas/cuadrantes_wgs84.geojson",
quiet = TRUE
)
#Lectura datos recursos patimoniales
recursos_patrimoniales <-
st_read("https://raw.githubusercontent.com/mauguemu/Proyecto_1_documento/master/Capas/recursos_patrimonio_wgs84.geojson",
quiet = TRUE
)
#Lectura patrimonio_material
patrimonio_material <-
st_read(
"/vsicurl/https://raw.githubusercontent.com/mauguemu/Proyecto_1_documento/master/Tablas/patrimonio_material_1.csv",
quiet = TRUE
)
#lectura patrimonio_inmaterial
patrimonio_inmaterial <-
st_read(
"/vsicurl/https://raw.githubusercontent.com/mauguemu/Proyecto_1_documento/master/Tablas/patrimonio_inmaterial.csv",
quiet = TRUE
)
patrimonio_material%>%
select(id_recurso, denominacion, subcategoria, estado_conservacion)%>%
datatable()
patrimonio_inmaterial%>%
select(id_recurso, Denominacion, Subcategoria, Alcance)%>%
datatable()
#Gráficos
##Gráficos
patrimonio_material %>%
group_by(estado_conservacion) %>%
summarize(suma_registros = n()) %>%
filter(!is.na(estado_conservacion)) %>%
plot_ly(x = ~ estado_conservacion,
y = ~ suma_registros,
type="bar",color = I("darkgreen")) %>%
layout(title = "Estado de conservación",
xaxis = list(title = "Estado de conservación"),
yaxis = list(title = "Cantidad de registros"))
patrimonio_material %>%
group_by(declaratoria) %>%
summarize(suma_registros = n()) %>%
filter(!is.na(declaratoria)) %>%
plot_ly(x = ~ declaratoria,
y = ~ suma_registros,
type="bar",color = I("blue")) %>%
layout(title = "Recursos con figura de protección legal",
xaxis = list(title = "Declaratoria"),
yaxis = list(title = "Cantidad de registros"))